home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / foo2zjs / hplj10xx_gui.tcl < prev   
Encoding:
Tcl/Tk script  |  2009-10-19  |  2.0 KB  |  88 lines
  1. #!/usr/bin/wish
  2.  
  3. global    share
  4. set    share "/usr/share/foo2zjs"
  5.  
  6. proc replaced {name} {
  7.     exec usb_printerid $name
  8. }
  9.  
  10. proc main {w} {
  11.     global share
  12.  
  13.     image create photo icon -file [file join $share hplj1020_icon.gif]
  14.  
  15.     frame $w.frame
  16.     tixBalloon $w.frame.balloon
  17.  
  18.     set n 0
  19.     set old 1
  20.     set pwd [pwd]
  21.     
  22.     foreach file [lsort [glob -nocomplain /sys/class/usb/lp*/device]] {
  23.     set old 0
  24.     regsub /.*usb/(lp\[^/]*)/.* $file {\1} lp
  25.     cd $file
  26.     cd ..
  27.     set fp [open "product" "r"]
  28.     gets $fp product
  29.     close $fp
  30.     set fp [open "serial" "r"]
  31.     gets $fp serial
  32.     close $fp
  33.     cd $pwd
  34.     if {$product != "HP LaserJet 1020" && $product != "HP LaserJet 1018"} {
  35.         continue
  36.     }
  37.  
  38.     set f $w.frame.frame$n
  39.     set prodsn [concat $product $serial]
  40.     frame $f
  41.     frame $f.sf$n
  42.     label $f.sf$n.label1 -text "$prodsn"
  43.     pack $f.sf$n.label1 -side top -fill y -expand 1
  44.     label $f.sf$n.label2 -text "Replaced the paper?"
  45.     pack $f.sf$n.label2 -side top -fill y -expand 1
  46.     pack $f.sf$n -side left -fill y
  47.  
  48.     button $f.config$n -text "test" -image icon \
  49.         -command "replaced /dev/usb/$lp"
  50.     pack $f.config$n -side left -fill y
  51.     $w.frame.balloon bind $f.config$n -balloonmsg "Replaced Paper"
  52.     pack $f
  53.     incr n
  54.     }
  55.     if {$old == 1} {
  56.     foreach file [lsort [glob -nocomplain /dev/usb/lp?]] {
  57.         set f $w.frame.frame$n
  58.         frame $f
  59.             frame $f.sf$n
  60.             label $f.sf$n.label1 -text "$file"
  61.             pack $f.sf$n.label1 -side top -fill y -expand 1
  62.             label $f.sf$n.label2 -text "Replaced the paper?"
  63.             pack $f.sf$n.label2 -side top -fill y -expand 1
  64.             pack $f.sf$n -side left -fill y
  65.  
  66.         button $f.config$n -text "test" -image icon \
  67.             -command "replaced $file"
  68.         pack $f.config$n -side left -fill y
  69.         $w.frame.balloon bind $f.config$n -balloonmsg "Replaced Paper"
  70.         pack $f
  71.         incr n
  72.     }
  73.     }
  74.     if {$n == 0} {
  75.     label $w.frame.label -text "No HP LaserJet 1018/1020"
  76.     pack $w.frame.label
  77.     puts "asdsd"
  78.     }
  79.  
  80.     pack $w.frame -expand 1
  81. }
  82.  
  83. wm title . "HP LaserJet 1018 and 1020 GUI"
  84.  
  85. package require Tix
  86.  
  87. main ""
  88.